1 S=5590:HH=S+30:DD=S+93:REM SID MENU BY HARRY BRATT
5 DIM H$(9),F$(9),M$(9),N$(9),P$(9)
10 POKE 53280,6:POKE 53281,6:PRINT"[147]";
20 FOR K=1 TO 25:PRINT:PRINT"                                       [157][148] ";:NEXT
25 SYS HH:POKE 53281,0:S$="":PRINT""
26 POKE 53265,11:PRINT""
30 PRINTS$"[157][157][157]   [172][146][172][187][187][172][187] [146][161][161][146][161][172][187][187][162][187]
31 [153]S$"LOGWAITLOGNEWNEWRNDNEWWAITCOSGETWAITGETGETWAITGETGETWAITGETGETNEWNEWNEWNEWNEWNEWNEWNEWRND
32 PRINTS$"[161][161][146][161][161][146][161][161][146][161][161][146][161][172][162][161][161][162][146][190][161][146]  [161][188][190][161][146] [162]
33 [153]S$"LOGWAITLOGCOSCOSWAITCOSLOGLOGWAITLOGCOSGETWAITGETGETWAITCOSLOGLOGWAITLOGCOSGETWAITRNDNEWWAIT LOGWAITLOGNEWWAIT "
34 [153][166]25)"NEWNEWWAIT*
54 PRINT" [195][207][205][208][213][212][197]!'S MUSIC SYSTEM "
56 PRINT"  FOR THE [195]OMMODORE 64"
60 PRINT "[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][157][148][185]"
62 FOR K=1 TO 4
63 PRINT "[155][182]                 [146][181][182]                 [146][181][157][148] "
66 PRINT "[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][148][192]"
68 NEXT
70 PRINT "[155][182]                 [146][181][182]                 [146][181][157][148] "
75 PRINT "[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][157][148][184]"
80 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][157][148][185]"
82 FOR K=1 TO 3
83 PRINT"[182]      [182][144]                        [181]      [146][181][157][148] ":NEXT
86 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][157][148][184]"
200 REM SPRITES
205 FOR K=832 TO 895:POKE K,0:NEXT
210 POKE 53269,3 :POKE 53271,3 :POKE 53277,3 :POKE 53287,0:POKE 53288,0
214 POKE 53248,34:POKE 53249,218:POKE 53250,32:POKE 53251,218:POKE 53264,2
216 POKE 2040,13:POKE 2041,13:K=832
222 FORA=0 TO 6:POKE K+A*3,238:POKE K+A*3+1,78:POKE K+A*3+2,238:NEXT
224 FORB=A*3 TO A*3+16:POKE K+B,68:NEXT
300 REM
310 POKE 214,9:FORK=0 TO 8STEP2:READ H$(K),H$(K+1),F$(K),F$(K+1)
312 PRINT:PRINT"[155]"H$(K)""H$(K+1):NEXT
320 FOR K=0 TO 9:READ M$(K),N$(K),P$(K):NEXT
350 X=0:Y=0:I=1:J=15:C0=55714
360 POKE 214,9+Y*2:PRINT:G=Y*2+X:PRINTSPC(21*X)"[161]"H$(G):POKE C0+Y*80+X*21,1
361 POKE 53265,27
362 ZP=0:POKE 214,20:PRINT
365 PRINTSPC(8)"[155]"M$(G):PRINTSPC(8)""N$(G):PRINTSPC(8)""P$(G)"[145][145][145]"
370 GET A$:IF A$="" GOTO 370
371 IF A$="[209]" GOTO 450
372 IF A$=CHR$(13) GOTO 500
375 Q=ASC(A$):B=(Q=145)-(Q=17):A=-(Q=157)-(Q=29):IF (AORB)=0 GOTO 400
380 POKE 214,9+Y*2:PRINT:PRINTSPC(21*X)"[155][161]"H$(Y*2+X):POKEC0+Y*80+X*21,15
385 Y=Y+B:X=ABS(X-A):Y=Y-5*(Y<0):Y=Y+5*(Y>4):GOTO 360
400 REM HELP STUFF
405 ZP=1-ZP:IF ZP=0 GOTO 362
411 PRINTSPC(8)"[155][195]URSOR KEYS=SELECT FILE "
412 PRINTSPC(8)"     [210]ETURN=LOAD FILE   "
413 PRINTSPC(8)"    [211]HIFT-[209]=QUIT PROGRAM"
415 GOTO 370
450 GOSUB455:END
455 SYS DD:POKE53280,14:POKE53281,6:POKE 53269,0:PRINT"[147][154]"CHR$(14+128)CHR$(9);
460 RETURN
500 REM LOAD
505 GOSUB455
512 PRINT"LOAD "CHR$(34)F$(Y*2+X)".64"CHR$(34)",8"
515 PRINT"RUN";
520 POKE 198,2:POKE 631,13:POKE 632,13
545 END
600 DATA "[211]ID [208]LAYER       ","[211]ID [197]DITOR       "
601 DATA "SID PLAYER","SID EDITOR"
602 DATA "[208]OLYCON UTILITY  ","[213]TLDUR UTILITY   "
603 DATA "POLYCON","UTLDUR"
604 DATA "[211]PEED[211]CRIPT->.WDS","[197]ASY[211]CRIPT->.WDS "
605 DATA "SS/WDS","ES/WDS"
606 DATA "[211]ID [195]OPIER       ","[194]ASIC [205]ERGE [196]EMO "
607 DATA "SID COPIER","SID DEMO"
608 DATA "[205]ERGE UTILITY    ","[197]XTRACT UTILITY  "
609 DATA "MERGE","EXTRACT"
700 DATA " [208]LAYS [211]ID[208]LAYER SONGS! "
701 DATA "[146]    (PRESS SPACE BAR    "
702 DATA "[146]   FOR INSTRUCTIONS.)   "
703 DATA "  [204]ETS YOU ENTER, EDIT  "
704 DATA "     AND PLAY BACK      "
705 DATA " [211]ID[208]LAYER MUSIC FILES. "
706 DATA "  [193] UTILITY TO CONVERT  "
707 DATA "   A SOLO VOICE INTO    "
708 DATA "   POLYPHONIC VOICES.   "
709 DATA " [193] UTILITY WHICH CHANGES"
710 DATA " A GIVEN RANGE OF NOTES "
711 DATA " INTO UTILITY DURATIONS."
712 DATA "  [195]ONVERTS [211]PEED[211]CRIPT  "
713 DATA "TEXT INTO A .[215][196][211] FILE TO"
714 DATA "USE AS A [211]INGALONG SONG."
715 DATA "  [195]ONVERTS [197]ASY[211]CRIPT   "
716 DATA "TEXT INTO A .[215][196][211] FILE TO"
717 DATA "USE AS A [211]INGALONG SONG."
718 DATA "[193] CONVENIENT WAY TO COPY"
719 DATA "  ANY NUMBER OF MUSIC,  "
720 DATA " WORDS OR PICTURE FILES."
721 DATA "  [193] DEMO OF [211]ID[208]LAYER   "
722 DATA "  MUSIC MERGED WITH A   "
723 DATA "     [194][193][211][201][195] PROGRAM.     "
724 DATA "    [204]ETS YOU COMBINE    "
725 DATA " SEVERAL MUSIC FILES TO "
726 DATA "  FORM ONE LARGE FILE.  "
727 DATA "   [204]ETS YOU EXTRACT A   "
728 DATA "  GIVEN RANGE OF NOTES  "
729 DATA "      FROM A SONG.      "